home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / pdoxwin / pi0794.zip / EA0794.EXE / WAIT45.SC < prev   
Text File  |  1994-04-27  |  472b  |  23 lines
  1. COEDIT NOWINDOW "CUSTOMER"
  2. PICKFORM 1    
  3. WINMAX
  4. SHOWPULLDOWN ENDMENU
  5. SPEEDBAR "~F2~-Save":"F2","~Ctrl-U~ - Undo last change":"UNDO"
  6. WHILE True
  7. WAIT TABLE
  8.   UNTIL "F2","UNDO","DOS","DOSBIG"
  9.   
  10.   SWITCH
  11.     CASE Retval = "F2":  DO_IT!  QUITLOOP
  12.     CASE Retval = "UNDO": UNDO LOOP          
  13.     CASE Retval = "DOS" OR Retval = "DOSBIG":
  14.       MESSAGE "Cannot shell out to DOS" LOOP
  15.   ENDSWITCH
  16.   
  17. ENDWHILE
  18. CLEARSPEEDBAR
  19. CLEARPULLDOWN
  20. CLEARALL
  21.       
  22.  
  23.